home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Item MB Quick & Easy 2.0
/
Item MB Quick & Easy 2.0.iso
/
mbfacad
/
mb19630.lsp
< prev
next >
Wrap
Text File
|
1998-03-15
|
19KB
|
543 lines
;=============196.30 PROFILLEISTE 19x11.5, natur
(EAITDBL "0019630")
(EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
(princ)
(defun C:19630H1 (/ P0 P1 P2 P3 P4 P10 P11 E1 E2 E3 E4 E5 Li Lix Wi D19 D6
BName n Ben2 Wi2 Px)
(EAITDBL "0019630")
(princ (strcat "\n\n" EAITbez1))
(EAITvari)
(if (not EAITlpr)(setq EAITlpr 0.0))
(EAITvars)
(EAITbpt nil nil nil)
(setq P1 (getpoint))
(if (= P1 nil)(setq P1 (EAITrpt)))
(EAITmsg "mb_mld1" "\n" "005" " <")(princ EAITlpr)(princ "> ") ;Laenge < >
(initget (+ 2 4))
(setq Li (getdist " "))
(if (= Li nil)(setq Li EAITlpr))
(while (or (> Li EAITlmax)(<= Li EAITlmin))
(EAITmsg "mb_mld1" "\n\n" "006" " ")(princ EAITlmin)(princ " / ")(princ EAITlmax)(EAITmsg "mb_mld1" " " "007" nil)
(EAITmsg "mb_mld1" "\n" "005" " <")(princ EAITlpr)(princ "> ")
(initget (+ 2 4))
(setq Li (getdist " "))
(if (= Li nil)(setq Li EAITlpr))
)
(setvar "OSMODE" 0)
;1 Nachkommastelle
(setq Li (/ (float (fix (+ (* Li 10.0) 0.5))) 10))
(princ "\n -> ")(princ Li)
(setvar "OSMODE" 0)
(initget 1)
(EAITmsg "mb_mld10" "\n" "008" nil) ;Konstruktionsrichtung
(setq Wi (getangle P1))
(setq Wi (* 180.0 (/ Wi Pi)))
(cond
((and (>= Wi 90) (< Wi 180)) (setq Li (* Li -1) D19 18.9 D6 6.0 Wi 135) )
((and (>= Wi 180) (< Wi 270)) (setq D19 -18.9 Li (* Li -1) D6 -12.9 Wi 225) )
((and (>= Wi 270) (< Wi 360)) (setq D19 -18.9 D6 -12.9 Wi 315) )
(T (setq D19 18.9 D6 6.0 Wi 45))
)
(setq P2 (list (+ (car P1) Li) (cadr P1))
P3 (list (car P2) (+ (cadr P2) D19))
P4 (list (car P1) (cadr P3))
)
(command EAITlay EAITlse "EAIT50" "")
(command EAITlin P1 P2 "")
(setq E1 (entlast))
(command EAITlin P2 P3 P4 P1 "" )
(setq Px (list (car P1)(+ (cadr P1)(/ D19 2))))
(EAITmsg "mb_mld10" "\n" "019" " ") ;Lage der Sichtkante (Return = keine):
(setq Wi2 (getangle Px))
(if (/= Wi2 nil) (setq Wi2 (* 180.0 (/ Wi2 Pi))) )
(if (and (>= Wi2 0) (< Wi2 180))
(setq P10 (list (car P1)(- (cadr P4) D6))
P11 (list (car P2)(cadr P10)) )
(setq P10 (list (car P1)(+ (cadr P1) D6))
P11 (list (car P2)(cadr P10)) )
)
(setq BName (EAITbnr))
(if (/= Wi2 nil)
(progn
(command EAITlin P10 P11 "")
(setq E2 (entnext E1) E3 (entnext E2) E4 (entnext E3) E5 (entnext E4))
(command EAITblo BName P1 E1 E2 E3 E4 E5 "")
)
(progn
(setq E2 (entnext E1) E3 (entnext E2) E4 (entnext E3))
(command EAITblo BName P1 E1 E2 E3 E4 "")
)
)
(command EAITege BName P1 "" "" "")
(setq Li (rtos (abs Li) 2 1))
(command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (EAITgib Wi) 5) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 Li (rtos EAITb1 2 1) EAITnr
)
;letzte Laenge (Li) merken
(setq Li (atof Li))
(setq EAITlpr Li)
(EAITvarz2)
(princ)
)
(defun C:19630H2 (/ P0 P1 P2 P3 P4 P10 P11 E1 E2 E3 E4 E5 Li Lix Wi D19 D6
BName n Ben2 Wi2 Px)
(EAITDBL "0019630")
(princ (strcat "\n\n" EAITbez1))
(EAITvari)
(if (not EAITlpr)(setq EAITlpr 0.0))
(EAITvars)
(EAITbpt nil nil nil)
(setq P1 (getpoint))
(if (= P1 nil)(setq P1 (EAITrpt)))
(EAITmsg "mb_mld1" "\n" "005" " <")(princ EAITlpr)(princ "> ") ;Laenge < >
(initget (+ 2 4))
(setq Li (getdist " "))
(if (= Li nil)(setq Li EAITlpr))
(while (or (> Li EAITlmax)(<= Li EAITlmin))
(EAITmsg "mb_mld1" "\n\n" "006" " ")(princ EAITlmin)(princ " / ")(princ EAITlmax)(EAITmsg "mb_mld1" " " "007" nil)
(EAITmsg "mb_mld1" "\n" "005" " <")(princ EAITlpr)(princ "> ")
(initget (+ 2 4))
(setq Li (getdist " "))
(if (= Li nil)(setq Li EAITlpr))
)
(setvar "OSMODE" 0)
;1 Nachkommastelle
(setq Li (/ (float (fix (+ (* Li 10.0) 0.5))) 10))
(princ "\n -> ")(princ Li)
(setvar "OSMODE" 0)
(initget 1)
(EAITmsg "mb_mld10" "\n" "008" nil) ;Konstruktionsrichtung
(setq Wi (getangle P1))
(setq Wi (* 180.0 (/ Wi Pi)))
(cond
((and (>= Wi 90) (< Wi 180)) (setq Li (* Li -1) D19 11.5 D6 3.0 Wi 135) )
((and (>= Wi 180) (< Wi 270)) (setq D19 -11.5 Li (* Li -1) D6 -8.5 Wi 225) )
((and (>= Wi 270) (< Wi 360)) (setq D19 -11.5 D6 -8.5 Wi 315) )
(T (setq D19 11.5 D6 3.0 Wi 45))
)
(setq P2 (list (+ (car P1) Li) (cadr P1))
P3 (list (car P2) (+ (cadr P2) D19))
P4 (list (car P1) (cadr P3))
)
(command EAITlay EAITlse "EAIT50" "")
(command EAITlin P1 P2 "")
(setq E1 (entlast))
(command EAITlin P2 P3 P4 P1 "" )
(setq Px (list (car P1)(+ (cadr P1)(/ D19 2))))
(EAITmsg "mb_mld10" "\n" "019" " ") ;Lage der Sichtkante (Return = keine):
(setq Wi2 (getangle Px))
(if (/= Wi2 nil) (setq Wi2 (* 180.0 (/ Wi2 Pi))) )
(if (and (>= Wi2 0) (< Wi2 180))
(setq P10 (list (car P1)(- (cadr P4) D6))
P11 (list (car P2)(cadr P10)) )
(setq P10 (list (car P1)(+ (cadr P1) D6))
P11 (list (car P2)(cadr P10)) )
)
(setq BName (EAITbnr))
(if (/= Wi2 nil)
(progn
(command EAITlin P10 P11 "")
(setq E2 (entnext E1) E3 (entnext E2) E4 (entnext E3) E5 (entnext E4))
(command EAITblo BName P1 E1 E2 E3 E4 E5 "")
)
(progn
(setq E2 (entnext E1) E3 (entnext E2) E4 (entnext E3))
(command EAITblo BName P1 E1 E2 E3 E4 "")
)
)
(command EAITege BName P1 "" "" "")
(setq Li (rtos (abs Li) 2 1))
(command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (EAITgib Wi) 5) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 Li (rtos EAITb1 2 1) EAITnr
)
;letzte Laenge (Li) merken
(setq Li (atof Li))
(setq EAITlpr Li)
(EAITvarz2)
(princ)
)
(defun C:19630S1 (/ Px P0 P1 P2 P3 P4 P11 P10 E1 E2 E3 E4 E5 Li Lix Wi Wi2 KWi KWix
DWx W90 Wix Wi2x W2x BName n Ben2 WU WO)
(EAITDBL "0019630")
(princ (strcat "\n\n" EAITbez1))
(EAITvari)
(if (not EAITlpr)(setq EAITlpr 0.0))
(EAITvars)
(EAITbpt nil nil nil)
(setq P1 (getpoint))
(if (= P1 nil)(setq P1 (EAITrpt)))
(EAITmsg "mb_mld1" "\n" "005" " <")(princ EAITlpr)(princ "> ") ;Laenge < >
(initget (+ 2 4))
(setq Li (getdist " "))
(if (= Li nil)(setq Li EAITlpr))
(while (or (> Li EAITlmax)(<= Li EAITlmin))
(EAITmsg "mb_mld1" "\n\n" "006" " ")(princ EAITlmin)(princ " / ")(princ EAITlmax)(EAITmsg "mb_mld1" " " "007" nil)
(EAITmsg "mb_mld1" "\n" "005" " <")(princ EAITlpr)(princ "> ")
(initget (+ 2 4))
(setq Li (getdist " "))
(if (= Li nil)(setq Li EAITlpr))
)
(setvar "OSMODE" 0)
;1 Nachkommastelle
(setq Li (/ (float (fix (+ (* Li 10.0) 0.5))) 10))
(princ "\n -> ")(princ Li)
(initget 1)
(EAITmsg "mb_mld10" "\n" "004" nil) ;Winkel
(setq Wi (getangle P1))
(setvar "OSMODE" 0)
(initget 1)
(EAITmsg "mb_mld10" "\n" "008" nil) ;Konstruktionsrichtung
(setq KWi (getangle P1))
(setq Wix (EAITbig Wi) KWix (EAITbig KWi))
(if (>= Wix KWix) (setq DWx (+ KWix (- 360 Wix))) (setq DWx (- KWix Wix)))
(cond
( (and (>= DWx 0) (< DWx 90)) (setq W90 90.0) )
( (and (>= DWx 90) (< DWx 180)) (setq W90 -90.0 Wi (+ Wi (EAITgib 180))) )
( (and (>= DWx 180) (< DWx 270)) (setq W90 90.0 Wi (+ Wi (EAITgib 180))) )
( T (setq W90 -90.0) )
)
(setq P2 (polar P1 Wi Li)
P3 (polar P2 (+ Wi (EAITgib W90)) 18.9)
P4 (polar P3 (+ Wi (EAITgib 180)) Li)
)
(command EAITlay EAITlse "EAIT50" "")
(command EAITlin P1 P2 "")
(setq E1 (entlast))
(command EAITlin P2 P3 P4 P1 "")
(setq Px (polar P1 (+ Wi (EAITgib W90)) 9.45))
(EAITmsg "mb_mld10" "\n" "019" " ") ;Lage der Sichtkante (Return = keine):
(setq Wi2 (getangle Px))
(if (/= Wi2 nil)(setq Wi2x (EAITbig Wi2)) )
(if (and (/= Wi2 nil)(<= Wix 180)) (setq WU Wix WO (+ Wix 180)) (setq WU (- Wix 180) WO Wix))
(if (and (<= Wi2x WU)(< Wi2 WO)) (setq Wi2x (+ (- 360 WU) Wi2x)))
(if (and (>= W2x WU)(< Wi2x WO))
(setq P10 (polar Px (+ (EAITgib WU)(EAITgib 90)) 3.45) P11 (polar P10 Wi Li))
(setq P10 (polar Px (+ (EAITgib WU)(EAITgib 90))-3.45) P11 (polar P10 Wi Li))
)
(setq BName (EAITbnr))
(if (/= Wi2 nil)
(progn
(command EAITlin P10 P11 "")
(setq E2 (entnext E1) E3 (entnext E2) E4 (entnext E3) E5 (entnext E4))
(command EAITblo BName P1 E1 E2 E3 E4 E5 "")
)
(progn
(setq E2 (entnext E1) E3 (entnext E2) E4 (entnext E3))
(command EAITblo BName P1 E1 E2 E3 E4 "")
)
)
(command EAITege BName P1 "" "" "")
(setq Li (rtos (abs Li) 2 1))
(command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P1 Wi 5) (+ Wi (EAITgib W90)) 5) "" "" (+ (EAITbig Wi) W90)
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 Li (rtos EAITb1 2 1) EAITnr
)
;letzte Laenge (Li) merken
(setq Li (atof Li))
(setq EAITlpr Li)
(EAITvarz2)
(princ)
)
(defun C:19630S2 (/ Px P0 P1 P2 P3 P4 P10 P11 E1 E2 E3 E4 E5 Li Lix Wi Wi2 KWi KWix
DWx W90 Wix Wi2x BName n Ben2 WU WO W2x)
(EAITDBL "0019630")
(princ (strcat "\n\n" EAITbez1))
(EAITvari)
(if (not EAITlpr)(setq EAITlpr 0.0))
(EAITvars)
(EAITbpt nil nil nil)
(setq P1 (getpoint))
(if (= P1 nil)(setq P1 (EAITrpt)))
(EAITmsg "mb_mld1" "\n" "005" " <")(princ EAITlpr)(princ "> ") ;Laenge < >
(initget (+ 2 4))
(setq Li (getdist " "))
(if (= Li nil)(setq Li EAITlpr))
(while (or (> Li EAITlmax)(<= Li EAITlmin))
(EAITmsg "mb_mld1" "\n\n" "006" " ")(princ EAITlmin)(princ " / ")(princ EAITlmax)(EAITmsg "mb_mld1" " " "007" nil)
(EAITmsg "mb_mld1" "\n" "005" " <")(princ EAITlpr)(princ "> ")
(initget (+ 2 4))
(setq Li (getdist " "))
(if (= Li nil)(setq Li EAITlpr))
)
(setvar "OSMODE" 0)
;1 Nachkommastelle
(setq Li (/ (float (fix (+ (* Li 10.0) 0.5))) 10))
(princ "\n -> ")(princ Li)
(initget 1)
(EAITmsg "mb_mld10" "\n" "004" nil) ;Winkel
(setq Wi (getangle P1))
(setvar "OSMODE" 0)
(initget 1)
(EAITmsg "mb_mld10" "\n" "008" nil) ;Konstruktionsrichtung
(setq KWi (getangle P1))
(setq Wix (EAITbig Wi) KWix (EAITbig KWi))
(if (>= Wix KWix) (setq DWx (+ KWix (- 360 Wix))) (setq DWx (- KWix Wix)))
(cond
( (and (>= DWx 0) (< DWx 90)) (setq W90 90.0) )
( (and (>= DWx 90) (< DWx 180)) (setq W90 -90.0 Wi (+ Wi (EAITgib 180))) )
( (and (>= DWx 180) (< DWx 270)) (setq W90 90.0 Wi (+ Wi (EAITgib 180))) )
( T (setq W90 -90.0) )
)
(setq P2 (polar P1 Wi Li)
P3 (polar P2 (+ Wi (EAITgib W90)) 11.5)
P4 (polar P3 (+ Wi (EAITgib 180)) Li)
)
(command EAITlay EAITlse "EAIT50" "")
(command EAITlin P1 P2 "")
(setq E1 (entlast))
(command EAITlin P2 P3 P4 P1 "")
(setq Px (polar P1 (+ Wi (EAITgib W90)) 5.75))
(EAITmsg "mb_mld10" "\n" "019" " ") ;Lage der Sichtkante (Return = keine):
(setq Wi2 (getangle Px))
(if (/= Wi2 nil)(setq Wi2x (EAITbig Wi2)) )
(if (and (/= Wi2 nil)(<= Wix 180)) (setq WU Wix WO (+ Wix 180)) (setq WU (- Wix 180) WO Wix))
(if (and (<= Wi2x WU)(< Wi2 WO)) (setq Wi2x (+ (- 360 WU) Wi2x)))
(if (and (>= W2x WU)(< Wi2x WO))
(setq P10 (polar Px (+ (EAITgib WU)(EAITgib 90)) 2.75) P11 (polar P10 Wi Li))
(setq P10 (polar Px (+ (EAITgib WU)(EAITgib 90)) -2.75) P11 (polar P10 Wi Li))
)
(setq BName (EAITbnr))
(if (/= Wi2 nil)
(progn
(command EAITlin P10 P11 "")
(setq E2 (entnext E1) E3 (entnext E2) E4 (entnext E3) E5 (entnext E4))
(command EAITblo BName P1 E1 E2 E3 E4 E5 "")
)
(progn
(setq E2 (entnext E1) E3 (entnext E2) E4 (entnext E3))
(command EAITblo BName P1 E1 E2 E3 E4 "")
)
)
(command EAITege BName P1 "" "" "")
(setq Li (rtos (abs Li) 2 1))
(command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P1 Wi 5) (+ Wi (EAITgib W90)) 5) "" "" (+ (EAITbig Wi) W90)
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 Li (rtos EAITb1 2 1) EAITnr
)
;letzte Laenge (Li) merken
(setq Li (atof Li))
(setq EAITlpr Li)
(EAITvarz2)
(princ)
)
(defun C:19630V1 (/ P0 P1 P2 P3 P4 P10 P11 E1 E2 E3 E4 E5 Li Lix Wi D19 D6
BName n Ben2 Wi2 Px)
(EAITDBL "0019630")
(princ (strcat "\n\n" EAITbez1))
(EAITvari)
(EAITvars)
(EAITbpt nil nil nil)
(setq P1 (getpoint))
(if (= P1 nil)(setq P1 (EAITrpt)))
(EAITmsg "mb_mld1" "\n" "005" " <")(princ EAITlpr)(princ "> ") ;Laenge < >
(initget (+ 2 4))
(setq Li (getdist " "))
(if (= Li nil)(setq Li EAITlpr))
(while (or (> Li EAITlmax)(<= Li EAITlmin))
(EAITmsg "mb_mld1" "\n\n" "006" " ")(princ EAITlmin)(princ " / ")(princ EAITlmax)(EAITmsg "mb_mld1" " " "007" nil)
(EAITmsg "mb_mld1" "\n" "005" " <")(princ EAITlpr)(princ "> ")
(initget (+ 2 4))
(setq Li (getdist " "))
(if (= Li nil)(setq Li EAITlpr))
)
(setvar "OSMODE" 0)
;1 Nachkommastelle
(setq Li (/ (float (fix (+ (* Li 10.0) 0.5))) 10))
(princ "\n -> ")(princ Li)
(setvar "OSMODE" 0)
(initget 1)
(EAITmsg "mb_mld10" "\n" "008" nil) ;Konstruktionsrichtung
(setq Wi (getangle P1))
(setq Wi (* 180.0 (/ Wi Pi)))
(cond
( (and (>= Wi 90) (< Wi 180)) (setq D19 -18.9 D6 -12.9 Wi 135) )
( (and (>= Wi 180) (< Wi 270)) (setq D19 -18.9 D6 -12.9 Li (* Li -1) Wi 225) )
( (and (>= Wi 270) (< Wi 360)) (setq D19 18.9 D6 6.0 Li (* Li -1) Wi 315) )
(T (setq D19 18.9 D6 6.0 Wi 45))
)
(setq P2 (list (+ (car P1) D19) (cadr P1))
P3 (list (car P2) (+ (cadr P2) Li))
P4 (list (car P1) (cadr P3))
)
(command EAITlay EAITlse "EAIT50" "")
(command EAITlin P1 P2 "")
(setq E1 (entlast))
(command EAITlin P2 P3 P4 P1 "" )
(setq Px (list (+ (car P1)(/ D19 2)) (cadr P1)))
(EAITmsg "mb_mld10" "\n" "019" " ") ;Lage der Sichtkante (Return = keine):
(setq Wi2 (getangle Px))
(if (/= Wi2 nil) (setq Wi2 (* 180.0 (/ Wi2 Pi))))
(if (and (>= Wi2 90) (< Wi2 270))
(setq P10 (list (+ (car P1) D6)(cadr P1))
P11 (list (car P10)(cadr P3)) )
(setq P10 (list (- (car P2) D6)(cadr P1))
P11 (list (car P10)(cadr P3)) )
)
(setq BName (EAITbnr))
(if (/= Wi2 nil)
(progn
(command EAITlin P10 P11 "")
(setq E2 (entnext E1) E3 (entnext E2) E4 (entnext E3) E5 (entnext E4))
(command EAITblo BName P1 E1 E2 E3 E4 E5 "")
)
(progn
(setq E2 (entnext E1) E3 (entnext E2) E4 (entnext E3))
(command EAITblo BName P1 E1 E2 E3 E4 "")
)
)
(command EAITege BName P1 "" "" "")
(setq Li (rtos (abs Li) 2 1))
(command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (EAITgib Wi) 5) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 Li (rtos EAITb1 2 1) EAITnr
)
;letzte Laenge (Li) merken
(setq Li (atof Li))
(setq EAITlpr Li)
(EAITvarz2)
(princ)
)
(defun C:19630V2 (/ P0 P1 P2 P3 P4 P10 P11 E1 E2 E3 E4 E5 Li Lix Wi D19 D6
BName n Ben2 Wi2 Px)
(EAITDBL "0019630")
(princ (strcat "\n\n" EAITbez1))
(EAITvari)
(EAITvars)
(EAITbpt nil nil nil)
(setq P1 (getpoint))
(EAITmsg "mb_mld1" "\n" "005" " <")(princ EAITlpr)(princ "> ") ;Laenge < >
(initget (+ 2 4))
(setq Li (getdist " "))
(if (= Li nil)(setq Li EAITlpr))
(while (or (> Li EAITlmax)(<= Li EAITlmin))
(EAITmsg "mb_mld1" "\n\n" "006" " ")(princ EAITlmin)(princ " / ")(princ EAITlmax)(EAITmsg "mb_mld1" " " "007" nil)
(EAITmsg "mb_mld1" "\n" "005" " <")(princ EAITlpr)(princ "> ")
(initget (+ 2 4))
(setq Li (getdist " "))
(if (= Li nil)(setq Li EAITlpr))
)
(setvar "OSMODE" 0)
;1 Nachkommastelle
(setq Li (/ (float (fix (+ (* Li 10.0) 0.5))) 10))
(princ "\n -> ")(princ Li)
(setvar "OSMODE" 0)
(initget 1)
(EAITmsg "mb_mld10" "\n" "008" nil) ;Konstruktionsrichtung
(setq Wi (getangle P1))
(setq Wi (* 180.0 (/ Wi Pi)))
(cond
( (and (>= Wi 90) (< Wi 180)) (setq D19 -11.5 D6 -8.5 Wi 135) )
( (and (>= Wi 180) (< Wi 270)) (setq D19 -11.5 D6 -8.5 Li (* Li -1) Wi 225) )
( (and (>= Wi 270) (< Wi 360)) (setq D19 11.5 D6 3.0 Li (* Li -1) Wi 315) )
(T (setq D19 11.5 D6 3.0 Wi 45))
)
(setq P2 (list (+ (car P1) D19) (cadr P1))
P3 (list (car P2) (+ (cadr P2) Li))
P4 (list (car P1) (cadr P3))
)
(command EAITlay EAITlse "EAIT50" "")
(command EAITlin P1 P2 "")
(setq E1 (entlast))
(command EAITlin P2 P3 P4 P1 "" )
(setq Px (list (+ (car P1)(/ D19 2)) (cadr P1)))
(EAITmsg "mb_mld10" "\n" "019" " ") ;Lage der Sichtkante (Return = keine):
(setq Wi2 (getangle Px))
(if (/= Wi2 nil) (setq Wi2 (* 180.0 (/ Wi2 Pi))))
(if (and (>= Wi2 90) (< Wi2 270))
(setq P10 (list (+ (car P1) D6)(cadr P1))
P11 (list (car P10)(cadr P3)) )
(setq P10 (list (- (car P2) D6)(cadr P1))
P11 (list (car P10)(cadr P3)) )
)
(setq BName (EAITbnr))
(if (/= Wi2 nil)
(progn
(command EAITlin P10 P11 "")
(setq E2 (entnext E1) E3 (entnext E2) E4 (entnext E3) E5 (entnext E4))
(command EAITblo BName P1 E1 E2 E3 E4 E5 "")
)
(progn
(setq E2 (entnext E1) E3 (entnext E2) E4 (entnext E3))
(command EAITblo BName P1 E1 E2 E3 E4 "")
)
)
(command EAITege BName P1 "" "" "")
(setq Li (rtos (abs Li) 2 1))
(command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (EAITgib Wi) 5) "" "" ""
EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 Li (rtos EAITb1 2 1) EAITnr
)
;letzte Laenge (Li) merken
(setq Li (atof Li))
(setq EAITlpr Li)
(EAITvarz2)
(princ)
)
(princ)